(symbols "javaVersion" 'pico)

(local
  *Version
  *VersionList
  javaVersion)

(setq
  *Version (java "java.lang.System"
             "getProperty" "java.version")
  *VersionList (thread *Version
                 chop
                 (split "-")
                 car
                 (replace "_" ".")
                 (split ".")
                 (map+ mapcar format) ) )

(de javaVersion (Print?)
  (when (thread Print?
          pack
          not)
    (prinl *Version) )
  *VersionList)

(de pico~javaVersion (Print?)
  (javaVersion Print?) )